CU Amiga Super CD-ROM 2/CU Amiga Magazine's Super CD-ROM 02 (1996)(EMAP Images)(GB)[!][issue 1996-04].iso/magazine/amiga_e/amigae.jan.archive/000037_crash!plucky.i…b.af.mil!bwills_Mon, 17 Jan 94 01:18:51 PST.msg

Text File | 1994-02-17 | 21KB | 531 lines

Received: by bkhouse.cts.com (V1.17-beta/Amiga)
      id <[e-mail]>; Mon, 17 Jan 94 01:18:51 PST
Received: from kirk.safb.af.mil by crash.cts.com with smtp
    (Smail3.1.28.1 #18) id m0pLhBt-0000N2C; Sun, 16 Jan 94 15:47 PST
Received: from ike (ike [140.175.6.44]) by kirk.safb.af.mil (8.6.4/8.6.4) with SMTP id RAA11506 for <[e-mail]>; Sun, 16 Jan 1994 17:46:45 -0600
Received: from plucky.safb.af.mil by ike (4.1/SMI-4.1)
    id AA24959; Sun, 16 Jan 94 17:43:13 CST
Received: by plucky.safb.af.mil (4.1/SMI-4.1)
    id AA01225; Sun, 16 Jan 94 17:44:51 CST
Date: Sun, 16 Jan 94 17:44:51 CST
Message-Id: <[e-mail]>
From: [e-mail] (Barry D Wills)
To:
Subject: re: Image on a (gadtools) gadget

/*============================================*
  Okay, Arvid et al.  Here it is.
  Sample source for creating your own button
  gadgets.  I tried to make the code somewhat
  reusable.  Hope you enjoy it!
  -- Barry
 *============================================*/
MODULE 'graphics/rastport',
       'intuition/intuition',
       'intuition/screens'

PROC newUpButton (left, top, width, height, id)
  DEF g : PTR TO gadget,
      upGadgetRender1 : PTR TO border,
      upGadgetRender2 : PTR TO border,
      upGadgetRender3 : PTR TO border,
      upSelectRender1 : PTR TO border,
      upSelectRender2 : PTR TO border,
      upSelectRender3 : PTR TO border,
      upXY1 : PTR TO INT,
      upXY2 : PTR TO INT,
      upXY3 : PTR TO INT
  /*-- Line coordinates for borders. --*/
  upXY3 := [ 3,6,  8, 4, 12, 6] : INT  -> Little arrow.
  upXY2 := [16,0, 16,10,  0,10] : INT  -> Right and bottom edge.
  upXY1 := [15,0,  -1, 0,  -1,10] : INT  -> Left and top edge.
  /*-- Create and link border structures. --*/
  upGadgetRender3 := [0,0,1,0,RP_JAM1,3, upXY3, NIL] : border
  upGadgetRender2 := [0,0,1,0,RP_JAM1,3, upXY2, upGadgetRender3] : border
  upGadgetRender1 := [0,0,2,0,RP_JAM1,3, upXY1, upGadgetRender2] : border
  upSelectRender3 := [0,0,1,0,RP_JAM1,3, upXY3, NIL] : border
  upSelectRender2 := [0,0,2,0,RP_JAM1,3, upXY2, upSelectRender3] : border
  upSelectRender1 := [0,0,1,0,RP_JAM1,3, upXY1, upSelectRender2] : border
  /*-- Create and initialize gadget. --*/
  IF (g := New (SIZEOF gadget)) = NIL THEN Raise ("MEM")
  g.nextgadget := NIL
  g.leftedge := left
  g.topedge := top
  g.width := width
  g.height := height
  g.flags := GFLG_GADGHIMAGE
  g.activation := GACT_RELVERIFY + GACT_IMMEDIATE
  g.gadgettype := GTYP_BOOLGADGET
  g.gadgetrender := upGadgetRender1
  g.selectrender := upSelectRender1
  g.userdata := id
ENDPROC  g
  /* newUpButton */

PROC newDownButton (left, top, width, height, id)
/*----------------------------------------------------*
  Create an Up-Arrow Button gadget.  Supply the gadget
  ID which will be placed in the userdata field.
 *----------------------------------------------------*/
  DEF g : PTR TO gadget,
      downGadgetRender1 : PTR TO border,
      downGadgetRender2 : PTR TO border,
      downGadgetRender3 : PTR TO border,
      downSelectRender1 : PTR TO border,
      downSelectRender2 : PTR TO border,
      downSelectRender3 : PTR TO border,
      downXY1 : PTR TO INT,
      downXY2 : PTR TO INT,
      downXY3 : PTR TO INT
  /*-- Line coordinates for borders. --*/
  downXY3 := [ 3,4,  8, 6, 12, 4] : INT  -> Little arrow.
  downXY2 := [16,0, 16,10,  0,10] : INT  -> Right and bottom edge.
  downXY1 := [15,0,  -1, 0,  -1,10] : INT  -> Left and top edge.
  /*-- Create and link border structures. --*/
  downGadgetRender3 := [0,0,1,0,RP_JAM1,3, downXY3, NIL] : border
  downGadgetRender2 := [0,0,1,0,RP_JAM1,3, downXY2, downGadgetRender3] : border
  downGadgetRender1 := [0,0,2,0,RP_JAM1,3, downXY1, downGadgetRender2] : border
  downSelectRender3 := [0,0,1,0,RP_JAM1,3, downXY3, NIL] : border
  downSelectRender2 := [0,0,2,0,RP_JAM1,3, downXY2, downSelectRender3] : border
  downSelectRender1 := [0,0,1,0,RP_JAM1,3, downXY1, downSelectRender2] : border
  /*-- Create and initialize gadget. --*/
  IF (g := New (SIZEOF gadget)) = NIL THEN Raise ("MEM")
  g.nextgadget := NIL
  g.leftedge := left
  g.topedge := top
  g.width := width
  g.height := height
  g.flags := GFLG_GADGHIMAGE
  g.activation := GACT_RELVERIFY + GACT_IMMEDIATE
  g.gadgettype := GTYP_BOOLGADGET
  g.gadgetrender := downGadgetRender1
  g.selectrender := downSelectRender1
  g.userdata := id
ENDPROC  g
  /* newDownButton */

PROC createGList ()
/*--------------------------------------*
  Create and link Scroll Button Gadgets.
 *--------------------------------------*/
  DEF g : PTR TO gadget
  g := newUpButton (154, 148, 15, 11, "UP")
  g.nextgadget := newDownButton (154, 159, 15, 11, "DOWN")
/*-------------------------*
  To add more to the list:
  g := g.nextgadget
  g.nextgadget := newGad () ...
 *-------------------------*/
ENDPROC  g
  /* createGList */

PROC main() HANDLE
  DEF w = NIL: PTR TO window,
      gadget : PTR TO gadget, gadgetId,
      idcmpClass, reqMessage
  IF (w := OpenW (0, 0, 300, 200,
                  IDCMP_CLOSEWINDOW+IDCMP_GADGETDOWN,
                  WFLG_CLOSEGADGET+WFLG_ACTIVATE+WFLG_SMART_REFRESH,
                  'Create Gadget Demo', NIL, WBENCHSCREEN,
                  createGList())) = NIL THEN Raise ("WIN")
  REPEAT
    idcmpClass := WaitIMessage (w)
    IF idcmpClass = IDCMP_GADGETDOWN
      gadget := MsgIaddr ()
      gadgetId := gadget.userdata
      SELECT gadgetId
        CASE "UP";   reqMessage := 'Up'
        CASE "DOWN"; reqMessage := 'Down'
        DEFAULT;     reqMessage := 'PANIC!'  /*-- Should never happen. --*/
      ENDSELECT
      EasyRequestArgs (0, [20,0,0,
                           'You pressed the \s Button???',
                           'Right!'], 0, [reqMessage])
    ENDIF
  UNTIL idcmpClass = IDCMP_CLOSEWINDOW
  CloseW (w)
  CleanUp (0)
EXCEPT
  IF w THEN Close (w)
  CleanUp (10)
ENDPROC
From crash!rbhp56.rbg.informatik.th-darmstadt.de!anh Mon, 17 Jan 94 02:41:35 PST
Received: by bkhouse.cts.com (V1.17-beta/Amiga)
      id <[e-mail]>; Mon, 17 Jan 94 02:41:35 PST
Received: from rbhp89.rbg.informatik.th-darmstadt.de by crash.cts.com with smtp
    (Smail3.1.28.1 #18) id m0pLqF3-0000ikC; Mon, 17 Jan 94 01:27 PST
Received: from rbhp47.rbg.informatik.th-darmstadt.de by rbhp89.rbg.informatik.th-darmstadt.de with SMTP
    (1.36.108.4/15.6) id AA10022; Mon, 17 Jan 1994 10:16:53 +0100
Received: by rbhp47.rbg.informatik.th-darmstadt.de
    (1.36.108.4/15.6) id AA02488; Mon, 17 Jan 1994 10:15:45 +0100
Message-Id: <[e-mail]>
Date: Mon, 17 Jan 94 10:15:43 MEZ
Full-Name: Olivier Anh
Mailer: Elm [revision: 66.25]
From: Olivier Anh <[e-mail]>
To: [e-mail]
Subject: Re: Converting numbers->strings (fwd)

Hi all,

> } Yes, there IS a way.  In my own code, I used:
> }
> } StringF(num,'\d',j-1)
>
> AHA!!!  I couldn't find 'StringF' in my reference doc.  Knowing
> that it is actually there, I was able to find only:

Well, I didn't find this function anywhere (nor in the autodocs...)
but it runs fine !!!!!!!

Thanx Trey


-------------------------------------------------------------------------------
   / / Olivier ANH   (ERAMUS Student)     |' And may the Force be with You ! '
\ X /  [e-mail] |                           - Jedi
-------------------------------------------------------------------------------
From crash!rbhp56.rbg.informatik.th-darmstadt.de!anh Mon, 17 Jan 94 04:45:44 PST
Received: by bkhouse.cts.com (V1.17-beta/Amiga)
      id <[e-mail]>; Mon, 17 Jan 94 04:45:44 PST
Received: from rbhp89.rbg.informatik.th-darmstadt.de by crash.cts.com with smtp
    (Smail3.1.28.1 #18) id m0pLrQ3-00009bC; Mon, 17 Jan 94 02:42 PST
Received: from rbhp47.rbg.informatik.th-darmstadt.de by rbhp89.rbg.informatik.th-darmstadt.de with SMTP
    (1.36.108.4/15.6) id AA10659; Mon, 17 Jan 1994 11:42:59 +0100
Received: by rbhp47.rbg.informatik.th-darmstadt.de
    (1.36.108.4/15.6) id AA02784; Mon, 17 Jan 1994 11:41:57 +0100
Message-Id: <[e-mail]>
Date: Mon, 17 Jan 94 11:41:57 MEZ
Full-Name: Olivier Anh
Mailer: Elm [revision: 66.25]
From: Olivier Anh <[e-mail]>
To: [e-mail]
Subject: Many Questions....

Hi all

I've sevral questions :

1 : How is it possible to create an Object with an String item in it.

     OBJECT x
        t[20] : STRING,
        l : LONG
     ENDOBJECT

    this example doesn't work....

2 : I'using the ReqTools.library. I call the RtGetLonGA function, but de
    returned buffer is clear....

    Example :
       buf:=0
       ok:=RtGetLongA(buf,'get long',NIL,0)
       WriteF('buf = \d',buf)

    running :
       buf = 0  (whatever I enter and press OK !)

    BUT when I recall this line, the content I entered before is always here !?

3 : I compiled the example WbArgs.e found in AmigaE archive. Under WB it
     doesn't work. This program read the WB arguments you pass to this program.
     Under WB 1.3, I had a Tool icon to WbArg. I run it. The 'Output' window
     opens and closes without doing anything else. No message is written.
     Could someone explain how do I do to run a program under WB 1.3 ?


Thanx,


-------------------------------------------------------------------------------
   / / Olivier ANH   (ERAMUS Student)     |' And may the Force be with You ! '
\ X /  [e-mail] |                           - Jedi
-------------------------------------------------------------------------------
From crash!archiduc.irit.fr!vintenat Tue, 18 Jan 94 01:33:35 PST
Received: by bkhouse.cts.com (V1.17-beta/Amiga)
      id <[e-mail]>; Tue, 18 Jan 94 01:33:35 PST
Received: from archiduc.irit.fr by crash.cts.com with smtp
    (Smail3.1.28.1 #18) id m0pLuEe-0000d3C; Mon, 17 Jan 94 05:43 PST
Received: from localhost (vintenat@localhost) by archiduc.irit.fr (8.6.4/8.6.4) id OAA10181; Mon, 17 Jan 1994 14:42:21 GMT
Date: Mon, 17 Jan 1994 14:42:21 GMT
Message-Id: <[e-mail]>
From: Lionel VINTENAT <[e-mail]>
To: [e-mail]
Cc: [e-mail]
Subject: Re: Many Questions....

>1 : How is it possible to create an Object with an String item in it.
>
>     OBJECT x
>        t[20] : STRING,
>        l : LONG
>     ENDOBJECT
    Try this :
OBJECT x
    t:LONG
    l:LONG
ENDOBJECT
t:=String(20)

    It's not exactly an object with a string item in it, but it will do the
same.

>2 : I'using the ReqTools.library. I call the RtGetLonGA function, but de
>    returned buffer is clear....
>
>    Example :
>       buf:=0
>       ok:=RtGetLongA(buf,'get long',NIL,0)
>       WriteF('buf = \d',buf)
>
>    running :
>       buf = 0  (whatever I enter and press OK !)
>
>    BUT when I recall this line, the content I entered before is always here !?
    I don't know the RtGetLongA() function of the ReqTools library, but
I think that ok:=RtGetLongA({buf},'get long',NIL,0) should work because to
allow a function to modify a LONG variable, you must give to this function the
address of the variable. In the example you give, RtGetLongA writes buf at 0
address.

    Lionel
From crash!uniwa.uwa.edu.au!multi!robbage Tue, 18 Jan 94 01:34:01 PST
Received: by bkhouse.cts.com (V1.17-beta/Amiga)
      id <[e-mail]>; Tue, 18 Jan 94 01:34:01 PST
Received: from uniwa.uwa.edu.au by crash.cts.com with smtp
    (Smail3.1.28.1 #18) id m0pLuyW-0000uRC; Mon, 17 Jan 94 06:30 PST
Received: from localhost (uucp@localhost) by uniwa.uwa.edu.au (8.6.4/8.6.4) id WAA29919 for bkhouse.cts.com!AmigaE; Mon, 17 Jan 1994 22:30:36 +0800
Received: by multi.multiline.com.au (Smail3.1.28.1 #6)
    id m0pLsev-0003d9C; Mon, 17 Jan 94 20:02 WST
Message-Id: <[e-mail]>
Date: Mon, 17 Jan 1994 20:02:17 +0800 (WST)
In-Reply-To: <[e-mail]> from "=?iso-8859-1?Q?Arvid_S=F8ndrol_Johansen?=" at Jan 15, 94 09:06:16 pm
X-Mailer: ELM [version 2.4 PL21]
MIME-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit
Content-Length: 1850
From: [e-mail] (Rob Nottage)
To: [e-mail]
Subject: Re: Image on a (gadtools) gadget.

> Does anybody know how to put an image on a (gadtools) gadget? We've
> tried something like this:

Hmm your example isn't a gadtools gadget, but I have successfully put an
image on a gadtools 'GENERIC_KIND' gadget in two or three of my programs.
In fact one program has about 10 gadgets with different images.
One thing to try is using DrawImage() and see if that displays the image
correctly in the window. If so, it's a gadget problem; if not then it's
an image problem. For the GENERIC_KIND gadget, you have to make sure
that you have the gadgetrender pointing to the image, selectrender to the
alternate image if you're using one, set the gadget flags to include
GFLG_GADGIMAGE and if you have an alternate image the also GFLG_GADGHIMAGE.

For my image, I used CITAS, which generates c source from a brush,
modified it to suit 'E' and included it in my program.
Rather than add some code here, I'll be making available a demo
GUI program to aid Amiga-E people in creating GUIs using gadtoolsbox
and SRCGEN. It's almost finished now, so I'll post it here ASAP

>     IF (memblock:=AllocMem(128,MEMF_CHIP))=NIL THEN Raise(ER_MEMORY)
>     CopyMem({bitmap},memblock,128)

I'm not sure on this but should memblock be DEFined as a PTR TO INT ?

>     picture.imagedata:=memblock
>     picture.planepick:=NIL
>     picture.planeonoff:=NIL

All my images have a planpick of 3. Maybe try that first?

>     IF (magnify:=g:=CreateGadgetA(BUTTON_KIND,g,
>         [154,148,25,15,NIL,NIL,1,0,visual,0]:newgadget,
>         [GA_IMAGE,picture,
>         NIL]))=NIL THEN Raise(ER_GADGET)

Oh so that's how you do it?  :-) If that works then I can save quite a bit
of code !


>     IF (wnd:=OpenW(10,15,200,offsety+165,$304 OR SCROLLERIDCMP,$E,
>         'ImageGadget',NIL,1,glist))=NIL THEN Raise(ER_WINDOW)
>     Gt_RefreshWindow(wnd,NIL)

You don't use OpenWindowTagList() ?

Hope I've helped somewhere.
From crash!plucky.ike.safb.af.mil!bwills Tue, 18 Jan 94 01:34:15 PST
Received: by bkhouse.cts.com (V1.17-beta/Amiga)
      id <[e-mail]>; Tue, 18 Jan 94 01:34:15 PST
Received: from kirk.safb.af.mil by crash.cts.com with smtp
    (Smail3.1.28.1 #18) id m0pLvXz-0000gzC; Mon, 17 Jan 94 07:07 PST
Received: from ike (ike [140.175.6.44]) by kirk.safb.af.mil (8.6.4/8.6.4) with SMTP id JAA12373 for <[e-mail]>; Mon, 17 Jan 1994 09:06:35 -0600
Received: from plucky.safb.af.mil by ike (4.1/SMI-4.1)
    id AA07494; Mon, 17 Jan 94 09:03:00 CST
Received: by plucky.safb.af.mil (4.1/SMI-4.1)
    id AA01457; Mon, 17 Jan 94 09:04:38 CST
Date: Mon, 17 Jan 94 09:04:38 CST
Message-Id: <[e-mail]>
From: [e-mail] (Barry D Wills)
To:
Subject: Many questions

>> Hi all

Hi, Olivier!

>> I've sevral questions :

Hm.

>> 1 : How is it possible to create an Object with an String item in it.
>>
>>     OBJECT x
>>        t[20] : STRING,
>>        l : LONG
>>     ENDOBJECT
>>
>>    this example doesn't work....

Right.  You're only allowed to have basic types in object
declarations (LONG, INT, CHAR).  So this is ok:

OBJECT x1
  a:CHAR
  b:INT
  c:LONG, d:CHAR
ENDOBJECT

But trying to reserve storage for larger areas of contiguous
memory is only possible if you know assembly and have
figured out how to use the ICONVERT tool to create your own
modules of OBJECT types.

What you must do here is:

DEF my_x:x1, s:PTR TO CHAR
x1.c:=String(20) /* x1.c is type LONG, used as a PTR TO CHAR */
s:=x1.c          /* x1.c and s now point to the same string  */
/*-- now do something, anything --*/
FOR i := 1 TO StrMax(s) DO s[i]:="0"

>> 2 : I'using the ReqTools.library. I call the RtGetLonGA function, but de
>>    returned buffer is clear....
>>
>>    Example :
>>       buf:=0
>>       ok:=RtGetLongA(buf,'get long',NIL,0)

You need to pass the *address* of buf so that the library
function can change it.  Use:

  ok:=RtGetLongA({buf},'get long',NIL,0)

>>        WriteF('buf = \d',buf)

No other changes, the only different is in the call to
RtGetLongA().

>>     running :
>>        buf = 0  (whatever I enter and press OK !)
>>
>>     BUT when I recall this line, the content I entered before is always here !?

That's because buf is unchanged (pointing at address 0).
The memory at address 0 this holds your input.  You could
crash your machine doing that. :-)

>> 3 : I compiled the example WbArgs.e found in AmigaE archive. Under WB it
>>      doesn't work. This program read the WB arguments you pass to this program.
>>      Under WB 1.3, I had a Tool icon to WbArg. I run it. The 'Output' window
>>      opens and closes without doing anything else. No message is written.
>>      Could someone explain how do I do to run a program under WB 1.3 ?

Aaaaa! 1.3! :-)  Can't remember if I got that one to work under
1.3, but I think it should.  Put some WriteF() statements in
there and add a Delay(5*50) (to delay 5 seconds) right before
exiting the program.  Dig in, dude!  It's not like you have to
wait for some C compiler to chug, link, and puke! :-) :-)
(Hang on whilst I fiddle with wbarg.e)  Hm, I could only get
one arg out of wbmessage.  Want to comment, anyone?  Wouter?
wb.numargs is always 1, go figger!

If I come up with anything else I'll holler.

Later.
-- Barry
From crash!world.std.com!cosell Tue, 18 Jan 94 01:34:30 PST
Received: by bkhouse.cts.com (V1.17-beta/Amiga)
      id <[e-mail]>; Tue, 18 Jan 94 01:34:30 PST
Received: from world.std.com by crash.cts.com with smtp
    (Smail3.1.28.1 #18) id m0pLvo5-0000CfC; Mon, 17 Jan 94 07:23 PST
Received: by world.std.com (5.65c/Spike-2.0)
    id AA27136; Mon, 17 Jan 1994 10:23:55 -0500
X-Mailer: //\\miga Electronic Mail (AmiElm 2.253)
Content-Length: 502
Date: Monday, 17 January 1994 10:21 EST
Organization: Fantasy Farm Fibers
Message-Id: <5860:[e-mail]>
From: [e-mail] (Bernie Cosell)
To: [e-mail]
Subject: "-e" compiler switch?

I was going to put together a set of arexx macros to run the e
compiler out of my editor [textra], and so I looked at Ecomp.rexx
And discovered that it selects the compiler switches "-we".  The -w
part is no problem, but my copy of reference.doc makes no mention of
an "e" switch.  What is it?  And.. are there any other switches
that are undocumented?

Thanks
  /Bernie\
--
Bernie Cosell                               [e-mail]
Fantasy Farm Fibers, Pearisburg, VA         [phone]
From crash!UNCA.EDU!JVANRIPER Tue, 18 Jan 94 01:34:38 PST
Received: by bkhouse.cts.com (V1.17-beta/Amiga)
      id <[e-mail]>; Tue, 18 Jan 94 01:34:38 PST
Received: from uncavx by crash.cts.com with smtp
    (Smail3.1.28.1 #18) id m0pLw1i-0000O5C; Mon, 17 Jan 94 07:38 PST
Received: from UNCA.EDU by UNCA.EDU (PMDF V4.2-15 #5911) id
 <[e-mail]>; Mon, 17 Jan 1994 10:36:38 EST
Date: Mon, 17 Jan 1994 10:36:38 -0500 (EST)
Message-id: <[e-mail]>
Organization: University of North Carolina at Asheville
X-VMS-To: IN%"[e-mail]"
MIME-version: 1.0
Content-type: TEXT/PLAIN; CHARSET=US-ASCII
Content-transfer-encoding: 7BIT
From: "Joseph E. Van_Riper III" <[e-mail]>
To: [e-mail]
Subject: Re: Converting numbers->strings (fwd)

Olivier wrote (regarding StringF):

| Well, I didn't find this function anywhere (nor in the autodocs...)
| but it runs fine !!!!!!!

I had trouble finding it, too, but it's actually in the Reference.[doc|guide]
somewhere.  It wasn't explicitely pointed out in the documentation, so you find
it 'in passing.'  I suppose Wouter forgot about it or something when he was
drawing up the descriptions of things.

Here's the only reference (somewhere around line 214 of 'reference.doc'):

> Strings may contain format signs introduced by a slash "\", either to
> introduce characters to the string that are for some reason not displayable,
> or for use with string formatting like WriteF(), TextF() and StringF(), or
> kick2 Vprintf().

I think, from there, I guessed at what 'StringF' would look like, and it seemed
to work.  Howz THAT for non-stick?

| Thanx Trey

Quite welcome.  Little things like this, though, make me wonder what else I may
be missing in the language.

- Trey